home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 223 / 223.d81 / sammy title (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  64 lines
  1. 1 dv=peek(186):if dv<8 then dv=8
  2. 2 print"[147]"
  3. 5 poke 53280,0:poke 53281,0:print chr$(142):print chr$(8)
  4. 10 sys57812"sm music player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 15 f$="sinfonia.mux"
  6. 16 sys57812f$,dv,0:poke780,0:poke781,0:poke782,132:sys65493
  7. 35 sys49435:poke781,0:poke782,132:sys49458:poke49152,7:gosub4140
  8. 45 t=ti+2320:poke 198,0
  9. 50 kb=peek(198)
  10. 52 if kb<>0 goto 60
  11. 54 if t<ti then goto 60
  12. 56 goto 50
  13. 60 print "[147][158]";chr$(14)
  14. 62 print tab(17)"[199]ame by"
  15. 64 print tab(11)"[210]ichard [202]. [196]erocher"
  16. 66 print tab(6)"[215]ritten with [209]uest [215]riter by"
  17. 68 print tab(14)"[202]on [205]attson"
  18. 70 print tab(13)"[212]itle music by"
  19. 72 print tab(15)"[215]hole [206]ote"
  20. 74 print tab(12)"[212]itle picture by"
  21. 76 print tab(10)"[195]heryl de [194]oissiere"
  22. 86 poke 53265,27
  23. 90 t=t+2000:poke 198,0
  24. 92 kb=peek(198)
  25. 94 if kb<>0 then goto 100
  26. 96 if t<ti then goto 100
  27. 98 goto 92
  28. 100 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  29. 105 print "[147]":poke 214,12:poke 211,15:sys 58732
  30. 106 print "[159][204]oading..."
  31. 110 gosub6000
  32. 4140 print"[147]                [150]       [154]            ";
  33. 4150 print"    [150]  [151][164][164]          [150]  [151] [150]   [151] [154]  [151] [154] ";
  34. 4160 print"  [151]      [151]       [150] [161] [151][167][205]        [150]    ";
  35. 4170 print"  [151] [154]      [151] [154]    [151]    [151]     [150] [161][158] [151]";
  36. 4180 print"[146][167] [205]      [150] [151] [150]     [154] [150] [154]             [151]";
  37. 4190 print"   [151]   [150] [161] [151][167][158][188] [151][205]      [150]       [154]    ";
  38. 4200 print"    [154]        [151]  [206] [150] [161] [151][167][158][188]  [151][205]   [149]  ";
  39. 4210 print"                        [151][206][158][162] [150] [161] [151][167] [158]";
  40. 4220 print"[188][188][151][167]       [150] [149]          [151]       [151] [149][185][185][151][206]";
  41. 4230 print" [158][162][146]  [161][158] [151][146][167][158][188] [188][151][167][149]     [129]   [149]    [162][162][162]";
  42. 4240 print"[162][162][162][162][162]  [184][184][184]   [158][146][172]  [146] [150] [161][158][162][151][167][158][188]  [151][167][149] ";
  43. 4250 print"[146][185][185]    [185][185][185][185][185][185][185][129]   [149][184][184][184][184][184]      [158][146][172]   [150] ";
  44. 4260 print"[161][158][162][151][146][167]  [158][188][151][167][149][162] [146][184][184][184][184][184][184][184][184]            ";
  45. 4270 print"  [172][158][146]![149][187] [151][146]  [158][162] [150] [161] [151][167][158][188]  [151][167][158].[149]    ";
  46. 4280 print"           [158][146] :::[129]    [146] [158]::[129] [158][146][188] [162][146]";
  47. 4290 print" [150] [161][158] [151][146][167]   [151][167][158].[129]        [162][162][162][162][162][162] [158][146]::";
  48. 4300 print"::[129] [158][146]::[129] [158][146]:[152]  [129] [158][146][188]  [146] [150] [161]     ";
  49. 4310 print"[151][167] [129]       [158][146][168]::[129][192][158][146]: [168][129] [158][146]:: :[129] [152][146] ";
  50. 4320 print"[158]:[129] [158][146]:  [129] [158][146][172]   [150]       [151][167][158].[129] [146]  ";
  51. 4330 print"[152][146] [158] [152] [129] [158][146][168] :[192][158][146]::[168][162][158]::::[182][152][146]   ";
  52. 4340 print"[158][146]: : [158][146][172] [162] [150] [161]     [151][167][158]. [155][146]  [155][146]";
  53. 4350 print" [158] [155] [175][158][146][168]::[192][158][146]::[168][196][158][146]: ::[182][158][146]: [198]";
  54. 4360 print"[155][146]  [155]  [158][146][167] [158][178][146] [150]                 ";
  55. 4370 print"                   [158][172] [162] [150]             ";
  56. 4380 print"                       [158][172] [162][146][155]"
  57. 4385 printtab(8)"the return of sammy marlo":return
  58. 6000 print"[144]load"chr$(34)"questreader"chr$(34)",8,1"
  59. 6010 print"run"
  60. 6020 poke631,13:poke632,13:poke198,2
  61. 6030 end
  62. 10000 open1,8,15,"i0":close1:n$="sammy title"
  63. 10001 open1,8,15,"s0:"+n$:close1:saven$,8:end
  64.